home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 60.zip / BS1 part 60 / Cppaint v1.2 d1.adf / PFM_Prefs / PFM_Locale / PFM_DiskReset next >
Text File  |  1993-10-19  |  1KB  |  51 lines
  1. ; Copyright (C) Cloanto (R) 1993  All Rights Reserved  Reproduction Prohibited
  2.  
  3.  
  4. ; Reset Personal Fonts Maker Disk Name
  5.  
  6. Assign >NIL: " PFM:" EXISTS
  7. If NOT WARN
  8.    Relabel >NIL: " PFM:" PFM
  9.    EndIf
  10.  
  11. Assign >NIL: "Copy of PFM:" EXISTS
  12. If NOT WARN
  13.    Relabel >NIL: "Copy of PFM:" PFM
  14.    EndIf
  15.  
  16. Assign >NIL: Copy_of_PFM: EXISTS
  17. If NOT WARN
  18.    Relabel >NIL: Copy_of_PFM: PFM
  19.    EndIf
  20.  
  21. PFM:c/Print >RAM:PFM_WriteOK ";"
  22. Copy >NIL: RAM:PFM_WriteOK PFM:PFM_Prefs/PFM_Locale
  23. Delete >NIL: RAM:PFM_WriteOK
  24. If NOT EXISTS PFM:PFM_Prefs/PFM_Locale/PFM_WriteOK
  25.    PFM:c/Print "Error during Personal Fonts Maker disk configuration."
  26.    Wait 3 SECS
  27.    Skip End
  28.    EndIf
  29.  
  30. ; Reset Personal Fonts Maker Installation Texts
  31.  
  32. If NOT EXISTS PFM:PFM_Prefs/PFM_Locale/PFM_InstallSub.eng
  33.    Rename PFM:PFM_Prefs/PFM_Locale/PFM_InstallSub PFM:PFM_Prefs/PFM_Locale/PFM_InstallSub.eng
  34.    EndIf
  35.  
  36. If NOT EXISTS PFM:PFM_Prefs/PFM_Locale/PFM_InstallSub.deu
  37.    Rename PFM:PFM_Prefs/PFM_Locale/PFM_InstallSub PFM:PFM_Prefs/PFM_Locale/PFM_InstallSub.deu
  38.    EndIf
  39.  
  40. If NOT EXISTS PFM:PFM_Prefs/PFM_Locale/PFM_InstallSub.ita
  41.    Rename PFM:PFM_Prefs/PFM_Locale/PFM_InstallSub PFM:PFM_Prefs/PFM_Locale/PFM_InstallSub.ita
  42.    EndIf
  43.  
  44.  
  45. ; Reset Personal Fonts Maker User Interface Language Preferences
  46.  
  47. PFM:c/Print > PFM:PFM_Prefs/Startup_A.set "PFM SETTINGS*N; Country and Language Dependent Settings*N"
  48. Copy PFM:PFM_Prefs/PFM_Locale/PFM1_StartupBase.prf PFM:PFM_Prefs/StartupF1.prf
  49.  
  50. Lab End
  51.